home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / 2322A.ZIP / A80Z / T.ASM < prev   
Assembly Source File  |  1988-04-15  |  951b  |  25 lines
  1.        ld (iy+h'ffc1),h'0
  2.        ld (ix+h'c1),h'0
  3.  
  4.          ifelse( a,b,c,a,a,d,e)
  5.          ifelse( a,a,b,c)
  6.          define( foo, $1 )
  7.          foo( z)
  8.          errprint(substr(foo,0,1))
  9.          define( `denotefirstchar',
  10.          `ifelse(  errprint(substr($1 ,0,1)),a,the first letter is a,
  11.                    errprint($1 ),b,the first letter is b,
  12.                    $1 ,c,the first letter is c,
  13.                    the first letter is not in ``a..c'')')
  14.           denotefirstchar( a)
  15.           denotefirstchar( bc)
  16.           denotefirstchar( de)
  17.          define( `denotefirstchar',
  18.          `ifelse( substr( $1,0,1),a,the first letter is a,
  19.                   substr( $1,0,1),b,the first letter is b)');,
  20.  ;                 substr( $1,0,1),c,the first letter is c,
  21.   ;                the first letter is not in ``a..c'')')
  22.           denotefirstchar( above)
  23.           denotefirstchar( cow)
  24.           denotefirstchar( donut)
  25.